home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1996 April / Macworld (1996-04).dmg / Shareware World / Entertainment / General / Xconq 7.0.1 / lib / ng-german.g < prev    next >
Text File  |  1995-08-22  |  2KB  |  59 lines
  1. ;;; German-like place name generator.
  2.  
  3. ;;; Conventional combos most common, random syllables rare.
  4. ;;; Needs more conventional words to combine?
  5.  
  6. (namer german-place-names (grammar root 100
  7.   (root (or 95 (name)
  8.              5 ("Bad " name)
  9.          ))
  10.   (name (or 40 (prefix suffix)
  11.             20 (both suffix)
  12.             20 (prefix both)
  13.          5 (prefix both suffix)
  14.         10 (syll suffix)
  15.         10 (prefix syll suffix)
  16.     ))
  17.   (prefix (or
  18.     schwarz blau grun gelb rot roth braun weiss
  19.     wolf
  20.     neu alt alten
  21.     salz
  22.     hoch uber nieder gross klein
  23.     west ost nord sud
  24.     ;; from real names
  25.     frank dussel chem stras mut
  26.     ))
  27.   (suffix (or
  28.     dorf torf heim holz hof burg stedt haus hausen
  29.     bruck brueck bach tal thal furt
  30.     ;; these aren't so great
  31.     ach ingen nitz
  32.     ))
  33.   (both (or
  34.     feld stadt stein see schwein schloss wasser eisen berg
  35.     ))
  36.   (syll (or 40 (startsyll vowel endsyll) 5 (vowel endsyll)))
  37.   (startsyll (or 30 startcons 10 startdiph))
  38.   (startcons (or b k d f g l m n r 5 s 3 t))
  39.   (startdiph (or bl kl fl gl 5 sl 3 sch 2 schl
  40.                  br dr kr fr gr 2 schr 3 tr 2 th 2 thr))
  41.   (vowel (or 6 a ae 2 au 5 e 2 ei 2 ie 6 i 3 o oe 2 u ue))
  42.   (endsyll (or 4 b 5 l 3 n 4 r 4 t
  43.                bs ls ns rs ts
  44.                3 ch 3 ck
  45.                lb lck lch lk lz ln lt lth ltz
  46.                rb rck rch rn rt rth rtz
  47.                ss sz
  48.                2 th tz
  49.   ))
  50. ))
  51.  
  52. ; cons vowel cons [vowel] (usually en em es)
  53.  
  54. ; cons vowel (or ss rr ll) vowel [cons]
  55.  
  56. ;;; Should include a personal name generator that will do "Jacob von
  57. ;;; Dittersdorfnachspieleruntermunter... von Ulm" :-)
  58.  
  59.